home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / os2 / kzr0597.zip / E.CMD < prev    next >
OS/2 REXX Batch file  |  1997-02-20  |  743b  |  30 lines
  1. /* REXX-Programm e.cmd  */
  2.  
  3.    Call RxFuncAdd 'SysLoadFuncs', RexxUtil, 'SysLoadFuncs'
  4.    Call SysLoadFuncs
  5.    Signal on syntax name eMsg
  6.  
  7. /* Diese Variablen müssen für jede Prozedur definiert werden, damit die  */
  8. /* Prozedur die Variable bufND kennt und die Variable ND übernehmen kann.*/
  9.    Pfd=SysSearchPath("PATH", "kzr.cmd")
  10.    lp=LastPos("\", Pfd)
  11.    Pfd=DelStr(Pfd, 1+lp)
  12.    NDAe=Pfd||"NDAe.DAT"
  13.    bufND  =Pfd||"NDZahl.DAT"
  14.    bufMsg =Pfd||"Meldung.DAT"
  15.    ND = LineIn(bufND, 1)
  16.    Numeric Digits ND+4
  17.  
  18.    /* Berechnet die Zahl e=2.718.... */
  19.    g=1; n=1; y=1
  20.    do forever
  21.      g=g*1/n
  22.      if (abs(g/y) < 10**(-ND-7)) then leave
  23.      y=y+g
  24.      n=n+1
  25.    end
  26.  
  27. W: numeric digits ND
  28.    return(Format(y))
  29.  
  30.